﻿Public Class TextGen
    Public Shared Function GenerateList() As String
        Dim text As String = ""

        For i As Int32 = 0 To (frmCrypto.lvwLoad.Items.Count - 1)
            text &= frmCrypto.lvwLoad.Items(i).Text & "  --  " & frmCrypto.lvwLoad.Items(i).SubItems(1).Text & vbCrLf
        Next
        Return text
    End Function

End Class
